home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Sort.Obj < prev    next >
Encoding:
Text File  |  1995-08-14  |  4.6 KB  |  5 lines  |  [TEXT/.Ob4]
  1. ¯6ÿˇ‹ òy8<≤¶SortÇhYÉSortYÑÖ2ˆÊÃOberon;‚ÜDisplay2ˆßæTexts;‚WêFonts;ı‰ƒViewers6e∏uFiles2¯"TextFrames;˜ê
  2. MenuViewersܡ‚&ˇ« ˇ¡˝4
  3. ˛Ä˛N˝¿¸—˝Ñ˝
  4. ˝u
  5. ˝Sˇˇ˝K ˝F˝?ˇ˛¸‡¸Ω¸∂¸∞¸ß¸°¸éáSystem.Close  System.Copy  System.Grow  Edit.Search  Edit.StoreSorted.Textsorted. lines  line à|¶øÅˇêî!ˇ∏;·8êA;√;•Äa0ΩT¶8|&êaêA;Å8T«Ë˛|ȶ9ˇ¸9!4ÖHÖhïIïiBˇ8bÅǡËÄåˇ–8æ8¿ÄBˇËHÄA,û@Ê(8bÄǡËÄÑˇ–8¢ˇ‘8¿ÄBˇËHÄAC‡$8bÄ¢ˇËÄÖˇ–8¢ˇÃ8¿ÄBˇËKˇˇaÄA8bĬˇËÄܡ–8›8ºÄBˇËKˇˇ=ÄA8bÄ‚ˇËÄᡖÄBˇËHÄAÅˇ‡Äh`ÄÇÄBˇËHÄAÄÄ!|¶ªÅˇO‡ øaˇÏî!˛†;·@;√;§ëˇ¸;ûW€<Å?ˇ¸ÅI0 ä æ–WÀ@.| Z8ˇ8`|i¶ÄfÄÜêgÑfîáÄÜBˇêgêáË@¯ÄÅˇ¸Å(0 â ª–Wj@.Åˇ¸Åã0 å0{ £–Td@.8†|°¶|…R|Ï"8|¶+}*A‚Ö@@0@˛ C‡ˇË|¶ T8|•0}0Ö@@@¸3{|õËAÂTÅ?ˇ¸ÅI0 ä ª–Wk@.9Ä}Ŷ8|äZ8}É+|§*A‚ (@0@˙ C‡ˇË|¶ T8}å0|•0 (@@¯ÙÄflˇ¸ÄÊ0 á º–Wà@.Å?ˇ¸ÅI0 ä ª–Wk@.|«B|ÍZ9ˇ¸8`|i¶ÄgÄáêhÑgîàÄáBˇêhêà;õW{<õË@¸ÄÅ?ˇ¸ÅI0 ä ª–Wk@.Åüˇ¸Äl0 É0õ §–TÖ@.8¿|¡¶|ÍZ}*8|«+}(*A‚|ÜH@0@Ê C‡ˇË|¶ T8|Δ0})0|ÜH@@‰3{C‡˛¨Å_ˇ¸Åj0 ã º–Wå@.|Àb8Êˇ¸98`|i¶ÄhÄàêgÑhîáÄàBˇêgêáÄ!ªaˇÏO‡ |¶øÅˇêî!˛∞;·8êAê0;ƒ›p3ûˇˇ/@˘3Ωˇˇ8}8ú9Kˇ˝%C‡ˇ‰/ú@˝ËÅ?0 â89@}I¶ÅIÅiëCÖIïcÅiBˇëCëcÄü0 ÑÄø0 Ö º–WÜ@.}E29dˇ¸8‡|ȶÄÍÅ
  6. êÎÑÍï Å
  7. BˇêÎë Åü0 å º–WÉ@.|Ï9ˇ¸9?8Ä|â¶ÄâÄ©êàÑâî®Ä©Bˇêàê®3úˇˇ8}8ú9Kˇ¸9C‡ˇÄ Ä!|¶ªÅˇO‡ |¶øˇ‡}@&êëAî!ˇh;·8êA;√;§;Ö,ÜNf0B8ê,ê êê úÉ</@˙C‡8 ÅbˇËÄãˇÿ8º0ŸˇˇÄBˇËHÄA8 ÅǡËÄåˇÿ8ø8ÄBˇËHÄAà8/É
  8. A˛48bÄǡËÄÑˇ–8†
  9. ÄBˇËHÄA8|ÄÇÄBˇËKˇ˛ÌÄA8 Ä¢ˇËÄÖˇÿ8º8¿ÄBˇËKˇ˙yÄA8¿∞›; úÉ<@Ûê;@8 Ä‚ˇËÄáˇÿ8ø8ÄBˇËKˇ˙]ÄA û© ®–U    @.}^J ∫â8}j—Æ3Zâü8,å
  10. @Êˇ∏ û®} £–Td@.|æ" ∫8¿|≈—Æ“®˝1±»@˙ˇ|C‡¥;@N@B8 Å"ˇËÄâˇÿ8ø8ÄBˇËKˇ˘…ÄA@Ú â_8/ä A˝â8,ã@ÊN@Ç û©ù ¨–UÉ@.|û ∫àø8|§—Æ3Zàfl8/
  11. @˙ˇò û®˝ ß–TË@.}>B ∫9@}I—Æ“AÚ©}1ã±ùò»@˛ˇTÄhÄdÄ!|¶|oÒ ªˇ‡O‡ |¶øˇ‡}&êëî!˛†;·8êA;√;§;Ö,ÜNf0B/NZ–B@Û3|ˇˇ; ˇˇC‡ ;`; @Ú¸9 ô?/ú@˝Ë ù ª–Wj@.9`}a¶}ùR88}l+|É*A‚|ã @0@Ê C‡ˇË|¶ T8}k0|Ñ0|ã @AÊÑ ù ª–We@.}=*9_8¿|…¶Ä…ÄÈê Ñ…îÍÄÈBˇê êÍã;@/A˙48bÅbˇËÄãˇ–8∏ÄBˇËKˇ˙5ÄA3Z ∫}ü“ã C‡ˇÃ{ 3úˇˇC‡ˇC‡p/ú@˝h ù ª–Wc@.Æ;@,òAÊ@8bÄǡËÄÑˇ–8∏ÄBˇËKˇ˜eÄA3Z ù ª–We@.|›* ∫–ÆC‡ˇ¿{ 3úˇˇC‡ˇò8~ÄÇÄBˇËKˇ˙!ÄAÄ0ġ,Ä!|¶|ÔÒ ªˇ‡O‡ |¶øaˇÏ}&êëî!˛(;·@êA;¿;†;Ä;`ìdì(ììì 8bˇ»8ÄÄBˇ¯HÄA;£8Å"ˇËÄ⡑ÅBˇ‡Ä™d ÖÄ•Åbˇ‡ÄÀd ÜÄΔ ÄBˇËHÄA8ÅǡËÄåˇ‘ÄBˇËHÄA®8/@˙$àüP/Ñ*@˛pÄBˇ‡HÄA;√ ûÄæ ÖÄ≈ÄÊˇ¸Åˇ¯Å(ˇËÅGˇÙ|äH@Ê4 ûÉæ ùÅ}Åãˇ¸Äbˇ¯ÄɡËĨˇÙe ÉΩ ùÉΩC‡®àflP/^@˙ú8d8üh8øl8flpÄBˇ‡HÄAġp/áA¸tÅˇËÄhˇÙÄBˇ‹HÄA;É8|ÄBˇËHÄAÄdÄühÄøl8‹ÄBˇËHÄA8bˇƒ8ÄÄBˇ¯KˇˆMÄA;£8}8úÄBˇËKˇˆ¡ÄAC‡(©?8,â@Ê8T8ÄÄBˇ¯KˇÙÈÄA;£8ÅBˇËÄ䡑ÄBˇËKˇı˘ÄAN`ÇN@ÇN Ç©8/ @˙ËâüP/å/@˛‹8ÄǡËÄÑˇ‘ÄBˇËKˇÙëÄA®ø8,Ö@Ê∏àflTp«_/RA˙$âUq    _/âRA˛â_VqK_,ãR@Ê N`BC‡N`ÇâüTqÉ_/EA˙$àüUpÖ_/ÖEA˛àflVp«_,áE@Ê N@BC‡N@ÇâTq    _/    UA˙$â_UqK_/ãUA˛âüVqÉ_,ÉU@Ê N BC‡N Ç<Ä8d–ÄBˇ‹HÄA;c8{8ü\8Ω|¿&TΔü˛Kˇ¯u8{®ü\Kˇ˜!8bˇ¿8ÄÄBˇ¯KˇÙ≠ÄA;£8}8õ®ø\|‡&TÊ߲}&Uó˛Kˇ˙ï®\8ǡ∏8†KˇÛ
  12. Å"ˇ‡®i>8üX8øZÄBˇ‡HÄA8bˇ¨8Ä 8¢ˇl8¿@ÄBˇ¯HÄAêˇ¸8}8ÄÄBˇ¯HÄA8Éġ¸ÅBˇ¯®™®flX®ˇZÄBˇ¸HÄA;√;`8`ÄBˇ‡HÄAĆÅúÄ!|¶}oÒ ªaˇÏO‡ |¶ø·ˇ¸êî!ˇ¿;·8êA8bÅǡËÄåˇ–ÄBˇËHÄAÄÄ!|¶ª·ˇ¸O‡ âäVWjkoqã壧®©ø¿ƒΔfl‡)*WÖêíïúû°ºæ¡» Õ¯˘*45CDGuyéêòö†¢ã¯Ã8WriteMsg·{n¯Û†¿Sift„{i‰{j·{left‚{right¯≈ò8HSortArray
  13. ∞array‚{left·{n„{right¯fi‡8FillArray
  14. ·{array8chå{emptyLines‰{iÂ{jÊ{len‚{nÁ{pos
  15. „{textç{white¯Ÿ®8FillText
  16. ‚{arrayÁ{chÊ{delta‰{iÂ{j„{nå{reverse
  17. ·{textç{unique¯Ëò¿Sort
  18. ·{V
  19. ‰{arrayËbeg
  20. „{bufç{emptyÏend‹nå{reverse
  21. ‰sel
  22. ‚{texttimeé{uniqueÿx⁄y¯˘8$$